1 Public Class FrmStockList
2
3 Private Sub FrmStockList_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
4 Me.Text = "Stock List"
5 End Sub
6
7 Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
8 Me.Close()
9 End Sub
10
11 Private Sub FrmStockList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
12 FILLComboBox("SELECT Catg_ID, Catg_Name FROM tbl_Category_File", cmbCategory)
13 lstStock.Focus()
14 End Sub
15
16 Private Sub cmbCategory_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCategory.SelectedIndexChanged
17 'Split(cmbCategory.Text, " - ")(0)
18 FillListView(ExecuteSQLQuery("SELECT Item_ID as 'ID', Item_Description as 'Description / Item Number', Item_barcode as 'Barcode' FROM TBL_Category_Item_File WHERE Catg_ID =" & Split(cmbCategory.Text, " - ")(0)), lstStock, 0)
19 lstStock.Focus()
20 End Sub
21
22 Private Sub cmdselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdselect.Click
23 If cmbCategory.Text <> "" Then
24 FrmSTOCKADD.txtproductid.Text = lstStock.FocusedItem.Text
25 FrmSTOCKADD.txtdesc.Text = lstStock.FocusedItem.SubItems(1).Text
26 FrmSTOCKADD.txtbarcode.Text = lstStock.FocusedItem.SubItems(2).Text
27 Me.Close()
28 Else
29 MsgBox("No Category Selected !!!", MsgBoxStyle.Information, "Sales and Inventory")
30 End If
31 End Sub
32
33 Private Sub lstStock_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstStock.SelectedIndexChanged
34
35 End Sub
36 End Class